www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/leaveword/admin_savepass.asp

    <!-- #include file="config.asp" -->
<!-- #include file="style.asp" -->
<!-- #include file="md5.asp" -->
<!-- #include file="common.asp" -->



<%
Response.Expires=-1
set cn=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.Recordset")
CreateConn cn,dbtype
rs.Open "select adminpass from supervisor",cn

if request.Form("inewpass1")<> request.Form("inewpass2") then
	response.write "新密码不一致，请检查！<a href=""admin_chpass.asp"">返回</a><script language=""JavaScript"">alert('新密码不一致，请检查！');history.back();</script>"
elseif request.Form("inewpass1")="" then
	response.write "密码不能为空，请重新输入！<a href=""admin_chpass.asp"">返回</a><script language=""JavaScript"">alert('密码不能为空，请重新输入！');history.back();</script>"
else
	if rs.EOF=false then
		if md5(request.Form("ioldpass"),16)=rs(0) then
			pwd=md5(request.Form("inewpass1"),16)
			
			set rs1=server.CreateObject("ADODB.Recordset")
			rs1.open "select adminpass from supervisor",cn,0,3
			session.Contents("adminpass")=pwd
			rs1(0)=pwd
			rs1.Update 

			Response.Redirect "admin.asp"

			rs1.Close
			set rs1=nothing
		else
			response.write "原密码错误，请检查！<a href=""admin_chpass.asp"">返回</a><script language=""JavaScript"">alert('原密码错误，请检查！');history.back();</script>"

			rs.Close
			cn.Close
			set rs=nothing
			set cn=nothing
			Response.End
		end if
	else
		response.write "密码验证失败，请检查！<a href=""admin_chpass.asp"">返回</a><script language=""JavaScript"">alert('密码验证失败，请检查！');history.back();</script>"

		rs.Close
		cn.Close
		set rs=nothing
		set cn=nothing
		Response.End
	end if
end if
rs.Close
cn.Close
set rs=nothing
set cn=nothing


%>